home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_res.ps < prev    next >
Text File  |  1996-01-10  |  14KB  |  519 lines
  1. %    Copyright (C) 1994, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for Level 2 resource machinery.
  19. % When this is run, systemdict is still writable,
  20. % but everything defined here goes into level2dict.
  21.  
  22. level2dict begin
  23.  
  24. (BEGIN RESOURCES) VMDEBUG
  25.  
  26. % We keep track of (global) instances with another entry in the resource
  27. % dictionary, an Instances dictionary.  For categories with implicit
  28. % instances, the values in Instances are the same as the keys;
  29. % for other categories, the values are [instance status size].
  30.  
  31. % Note that the dictionary that defines a resource category is stored
  32. % in global memory.  The PostScript manual says that each category must
  33. % manage global and local instances separately.  However, objects in
  34. % global memory other than systemdict can't reference objects in local memory.
  35. % This means that the resource category dictionary, which would otherwise be
  36. % the obvious place to keep track of the instances, can't be used to keep
  37. % track of local instances.  Instead, we define a dictionary in local VM
  38. % called localinstancedict, in which the key is the category name and
  39. % the value is the analogue of Instances for local instances.
  40.  
  41. % We don't currently implement automatic resource unloading.
  42. % When and if we do, it should be hooked to the garbage collector.
  43. % However, Ed Taft of Adobe says their interpreters don't implement this
  44. % either, so we aren't going to worry about it for a while.
  45.  
  46. currentglobal false setglobal systemdict begin
  47.   /localinstancedict 5 dict def
  48. end true setglobal
  49. /.emptydict 0 dict readonly def
  50. setglobal
  51.  
  52. % Resource category dictionaries have the following keys (those marked with
  53. % * are optional):
  54. %    Standard, defined in the Red Book:
  55. %        Category (name)
  56. %        *InstanceType (name)
  57. %        DefineResource
  58. %        UndefineResource
  59. %        FindResource
  60. %        ResourceStatus
  61. %        ResourceForAll
  62. %        *ResourceFileName
  63. %    Additional, specific to our implementation:
  64. %        Instances (dictionary)
  65. %        .LocalInstances
  66. %            - .LocalInstances <dict>
  67. %        .GetInstance
  68. %            <key> .GetInstance <instance> -true-
  69. %            <key> .GetInstance -false-
  70. %        .CheckResource
  71. %            <value> .CheckResource <ok>
  72. %        .DoLoadResource
  73. %            <key> .DoLoadResource - (may give an error)
  74. %        .LoadResource
  75. %            <key> .LoadResource - (may give an error)
  76. %        .ResourceFile
  77. %            <key> .ResourceFile <file> -true-
  78. %            <key> .ResourceFile <key> -false-
  79. % All the above procedures expect that the top dictionary on the d-stack
  80. % is the resource dictionary.
  81.  
  82. % Define enough of the Category category so we can define other categories.
  83. % The dictionary we're about to create will become the Category
  84. % category definition dictionary.
  85.  
  86. 12 dict begin
  87.  
  88.         % Standard entries
  89.  
  90. /Category /Category def
  91. /InstanceType /dicttype def
  92.  
  93. /DefineResource
  94.     { dup .CheckResource
  95.        { dup /Category 3 index cvlit .growput readonly
  96.          dup [ exch 0 -1 ] exch
  97.          Instances 4 2 roll put
  98.        }
  99.        { /typecheck signalerror
  100.        }
  101.       ifelse
  102.     } bind def
  103. /FindResource        % (redefined below)
  104.     { Instances exch get 0 get
  105.     } bind def
  106.  
  107.         % Additional entries
  108.  
  109. /Instances 25 dict def
  110. Instances /Category [currentdict 0 -1] put
  111.  
  112. /.LocalInstances 0 dict def
  113. /.GetInstance
  114.     { Instances exch .knownget
  115.     } bind def
  116. /.CheckResource
  117.     { dup gcheck currentglobal and
  118.        { /DefineResource /FindResource /ResourceForAll /ResourceStatus
  119.          /UndefineResource }
  120.        { 2 index exch known and }
  121.       forall exch pop
  122.     } bind def
  123.  
  124. Instances end begin    % for the base case of findresource
  125.  
  126. (END CATEGORY) VMDEBUG
  127.  
  128. % Define the resource operators.  I don't see how we can possibly restore
  129. % the stacks after an error, since the procedure may have popped and
  130. % pushed elements arbitrarily....
  131.  
  132. mark
  133. /defineresource        % <key> <instance> <category> defineresource <instance>
  134.     { /Category findresource dup begin
  135.       /InstanceType known
  136.        { dup type InstanceType ne
  137.           { dup type /packedarraytype eq InstanceType /arraytype eq and
  138.         not { /typecheck signalerror } if
  139.           } if
  140.        } if
  141.       /DefineResource load stopped end { stop } if
  142.     }
  143. /findresource        % <key> <category> findresource <instance>
  144.     { dup /Category eq
  145.        { pop //Category 0 get } { /Category findresource } ifelse
  146.       begin
  147.       /FindResource load stopped end { stop } if
  148.     }
  149. /resourceforall        % <template> <proc> <scratch> <category> resourceforall -
  150.     { /Category findresource begin
  151.       /ResourceForAll load stopped end { stop } if
  152.     }
  153. /resourcestatus        % <key> <category> resourcestatus <status> <size> true
  154.             % <key> <category> resourcestatus false
  155.     { /Category findresource begin
  156.       /ResourceStatus load stopped end { stop } if
  157.     }
  158. /undefineresource    % <key> <category> undefineresource -
  159.     { /Category findresource begin
  160.       /UndefineResource load stopped end { stop } if
  161.     }
  162. end        % Instances of Category
  163. counttomark 2 idiv { bind odef } repeat pop
  164.  
  165. % Define the Generic category.
  166.  
  167. /Generic mark
  168.  
  169.         % Standard entries
  170.  
  171. % We're still running in Level 1 mode, so dictionaries won't expand.
  172. % Leave room for the /Category entry.
  173. /Category null
  174.  
  175. /DefineResource
  176.     { dup .CheckResource
  177.        { dup [ exch 0 -1 ] exch
  178.          currentglobal
  179.           { false setglobal 2 index UndefineResource    % remove local def if any
  180.         true setglobal
  181.         Instances dup //.emptydict eq
  182.          { pop 3 dict /Instances 1 index def
  183.          }
  184.         if
  185.           }
  186.           { .LocalInstances dup //.emptydict eq
  187.              { pop 3 dict localinstancedict Category 2 index put
  188.          }
  189.         if
  190.           }
  191.          ifelse
  192.          4 2 roll .growput
  193.        }
  194.        { /typecheck signalerror
  195.        }
  196.       ifelse
  197.     } bind
  198. /UndefineResource
  199.     {  { dup 2 index .knownget
  200.           { dup 1 get 1 ge
  201.          { dup 0 null put 1 2 put pop pop }
  202.          { pop exch undef }
  203.         ifelse
  204.           }
  205.           { pop pop
  206.           }
  207.          ifelse
  208.        }
  209.       currentglobal
  210.        { 2 copy Instances exch exec
  211.        }
  212.       if .LocalInstances exch exec
  213.     } bind
  214. /FindResource
  215.     { dup ResourceStatus
  216.        { pop 1 gt            % not in VM
  217.           { .DoLoadResource
  218.           }
  219.          if
  220.          .GetInstance pop        % can't fail
  221.          0 get
  222.        }
  223.        { /undefinedresource signalerror
  224.        }
  225.       ifelse
  226.     } bind
  227. /ResourceStatus
  228.     { dup .GetInstance
  229.        { exch pop dup 1 get exch 2 get true }
  230.        { .ResourceFile
  231.           { closefile 2 -1 true }
  232.           { pop false }
  233.          ifelse
  234.        }
  235.       ifelse
  236.     } bind
  237. /ResourceForAll
  238.     { % **************** Doesn't present instance groups in
  239.       % **************** the correct order yet.
  240.       % We construct a new procedure so we don't have to use
  241.       % static resources to hold the iteration state.
  242.       3 packedarray        % template, proc, scratch
  243.       { exch pop    % stack contains: key, {template, proc, scratch}
  244.         2 copy 0 get .stringmatch
  245.          { 1 index type dup /stringtype eq exch /nametype eq or
  246.         { 2 copy 2 get cvs
  247.           exch 1 get 3 -1 roll pop
  248.         }
  249.         { 1 get
  250.         }
  251.            ifelse exec
  252.          }
  253.          { pop pop
  254.          }
  255.         ifelse
  256.       } /exec cvx 3 packedarray cvx
  257.       % We must pop the resource dictionary off the dict stack
  258.       % when doing the actual iteration, and restore it afterwards.
  259.       currentglobal .LocalInstances length 0 eq or not
  260.        {        % We must do local instances, and do them first.
  261.          /forall cvx 1 index currentdict 3 packedarray cvx
  262.          .LocalInstances 3 1 roll end exec begin
  263.        }
  264.       if
  265.       Instances exch
  266.       /forall cvx currentdict 2 packedarray cvx
  267.       end exec begin
  268.     } bind
  269.  
  270.         % Additional entries
  271.  
  272. % Unfortunately, we can't create the real Instances dictionary now,
  273. % because if someone copies the Generic category (which pp. 95-96 of the
  274. % 2nd Edition Red Book says is legitimate), they'll wind up sharing
  275. % the Instances.  Instead, we have to create Instances on demand,
  276. % just like the entry in localinstancedict.
  277. % We also have to prevent anyone from creating instances of Generic itself.
  278. /Instances //.emptydict
  279.  
  280. /.LocalInstances
  281.     { localinstancedict Category .knownget not { //.emptydict } if
  282.     } bind
  283. /.GetInstance
  284.     { currentglobal
  285.        { Instances exch .knownget }
  286.        { .LocalInstances 1 index .knownget
  287.           { exch pop true }
  288.           { Instances exch .knownget }
  289.          ifelse
  290.        }
  291.       ifelse
  292.     } bind
  293. /.CheckResource
  294.     { pop true
  295.     } bind
  296. /.DoLoadResource
  297.     { dup vmstatus pop exch pop exch
  298.       .LoadResource
  299.       vmstatus pop exch pop exch sub
  300.       1 index .GetInstance not
  301.        { pop /undefinedresource signalerror }    % didn't load
  302.       if
  303.       dup 1 1 put
  304.       2 3 -1 roll put
  305.     } bind
  306. /.LoadResource
  307.     { dup .ResourceFile
  308.        { exch pop currentglobal
  309.           { run }
  310.           { true setglobal { run } stopped false setglobal { stop } if }
  311.          ifelse
  312.        }
  313.        { /undefinedresource signalerror
  314.        }
  315.      ifelse
  316.     } bind
  317. /.ResourceFile
  318.     { currentdict /ResourceFileName known
  319.        { mark 1 index 100 string { ResourceFileName }
  320.          stopped
  321.           { cleartomark false }
  322.           { exch pop findlibfile
  323.          { exch pop exch pop true }
  324.          { false }
  325.         ifelse
  326.           }
  327.          ifelse
  328.        }
  329.        { false }
  330.       ifelse
  331.     } bind
  332.  
  333. .dicttomark
  334. /Category defineresource pop
  335.  
  336. % Fill in the rest of the Category category.
  337. /Category /Category findresource dup
  338. /Generic /Category findresource begin
  339.  { /FindResource /ResourceForAll /ResourceStatus /UndefineResource /.ResourceFile }
  340.  { dup load put dup } forall
  341. pop readonly pop end
  342.  
  343. (END GENERIC) VMDEBUG
  344.  
  345. % Define the fixed categories.
  346.  
  347. mark
  348.     % Things other than types
  349.  /ColorSpaceFamily
  350.    mark colorspacedict { pop } forall .packtomark
  351.  /Emulator
  352.    mark EMULATORS { cvn } forall .packtomark
  353.  /Filter
  354.    mark filterdict { pop } forall .packtomark
  355.  /IODevice
  356.     % Loop until the .getiodevice gets a rangecheck.
  357.    errordict /rangecheck 2 copy get
  358.    errordict /rangecheck { pop stop } put    % pop the command
  359.    mark 0 { {dup .getiodevice exch 1 add} loop} stopped pop pop pop .packtomark
  360.    4 1 roll put
  361.    .clearerror
  362.     % Types
  363.  /setcolorrendering where
  364.   { pop /ColorRenderingType
  365.      {1}
  366.   } if
  367. buildfontdict 0 known
  368.   { /FMapType
  369.      {2 3 4 5 6 7 8}
  370.   } if
  371.  /FontType
  372.    [ buildfontdict { pop } forall ]
  373.  /FormType
  374.    {1}
  375.  /HalftoneType
  376.    {1 2 3 4 5}
  377.  /ImageType
  378.    {1}
  379.  /PatternType
  380.    {1}            % should check for Pattern color space
  381. counttomark 2 idiv
  382.  { mark
  383.  
  384.         % Standard entries
  385.  
  386.    /DefineResource
  387.     { /invalidaccess signalerror } bind
  388.    /UndefineResource
  389.     { /invalidaccess signalerror } bind
  390.    /FindResource
  391.     { Instances exch get } bind
  392.    /ResourceStatus
  393.     { Instances exch known { 0 0 true } { false } ifelse } bind
  394.    /ResourceForAll
  395.     /Generic /Category findresource /ResourceForAll get
  396.  
  397.         % Additional entries
  398.  
  399.    counttomark 2 add -1 roll
  400.    dup length dict dup begin exch { dup def } forall end readonly
  401.    /Instances exch
  402.    /.LocalInstances    % used by ResourceForAll
  403.     0 dict def
  404.  
  405.    .dicttomark /Category defineresource pop
  406.  } repeat pop
  407.  
  408. (END FIXED) VMDEBUG
  409.  
  410. % Define the other built-in categories.
  411.  
  412. /.definecategory    % <name> -mark- <key1> ... <valuen> .definecategory -
  413.  { counttomark 2 idiv 2 add        % Instances, Category
  414.    /Generic /Category findresource dup maxlength 3 -1 roll add dict copy begin
  415.    counttomark 2 idiv { def } repeat pop    % pop the mark
  416.    currentdict end /Category defineresource pop
  417.  } bind def
  418.  
  419. /ColorRendering mark /InstanceType /dicttype .definecategory
  420. /ColorSpace mark /InstanceType /arraytype .definecategory
  421. /Form mark /InstanceType /dicttype .definecategory
  422. /Halftone mark /InstanceType /dicttype .definecategory
  423. /Pattern mark /InstanceType /dicttype .definecategory
  424. /ProcSet mark /InstanceType /dicttype .definecategory
  425.  
  426. (END MISC) VMDEBUG
  427.  
  428. % Define the Encoding category.
  429.  
  430. /Encoding mark
  431.  
  432. /InstanceType /arraytype
  433.  
  434. % Handle already-registered encodings, including lazily loaded encodings
  435. % that aren't loaded yet.
  436.  
  437. /Instances mark
  438.   EncodingDirectory
  439.    { dup length 256 eq { [ exch 0 -1 ] } { pop [null 2 -1] } ifelse
  440.    } forall
  441. .dicttomark
  442.  
  443. /.ResourceFileDict mark
  444.   EncodingDirectory
  445.    { dup length 256 eq { pop pop } { 0 get } ifelse
  446.    } forall
  447. .dicttomark
  448.  
  449. /ResourceFileName
  450.  { exch dup .ResourceFileDict exch .knownget
  451.     { exch pop exch copy }
  452.     { exch pop /undefinedresource signalerror }
  453.    ifelse
  454.  } bind
  455.  
  456. .definecategory            % Encoding
  457.  
  458. /.findencoding { /Encoding findresource } bind def
  459. /findencoding /.findencoding load odef
  460. /.defineencoding
  461.  { 2 copy /Encoding defineresource pop
  462.    //EncodingDirectory 3 1 roll put
  463.  } bind def
  464.  
  465. (END ENCODING) VMDEBUG
  466.  
  467. % Define the Font category.
  468.  
  469. /Font mark
  470.  
  471. /InstanceType /dicttype
  472.  
  473. /DefineResource
  474.     { 2 copy //definefont exch pop
  475.       /Generic /Category findresource /DefineResource get exec
  476.     } bind
  477. /UndefineResource
  478.     { dup //undefinefont
  479.       /Generic /Category findresource /UndefineResource get exec
  480.     } bind
  481. /FindResource
  482.     { dup ResourceStatus
  483.        { pop 1 gt { .DoLoadResource } if }
  484.        { .DoLoadResource }
  485.       ifelse
  486.       .GetInstance pop 0 get
  487.     } bind
  488.  
  489. /.LoadResource
  490.     { //findfont exec pop
  491.     } bind
  492.  
  493. /Instances FontDirectory length 2 mul dict
  494.  
  495. .definecategory            % Font
  496.  
  497. % Redefine font "operators".
  498. /.definefontmap
  499.  { /Font /Category findresource /Instances get
  500.    dup 3 index known
  501.     { pop }
  502.     { 2 index [null 2 -1] .growput }
  503.    ifelse
  504.    //.definefontmap exec
  505.  } bind def
  506.  
  507. /definefont
  508.     { /Font defineresource } bind odef
  509. /undefinefont
  510.     { /Font undefineresource } bind odef
  511. /findfont
  512.     { /Font findresource } bind def    % Must be a procedure, not an operator
  513.  
  514. % Remove initialization utilities.
  515. currentdict /.definecategory undef
  516. currentdict /.emptydict undef
  517.  
  518. end                % level2dict
  519.